Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-04/win-fort.zip/WINDOWS.FI

Text File | 1991-11-12 | 83KB | 2,651 lines

C
C  WINDOWS.FI -
C
C Author       : Kevin B Black
C Date written : 12 Oct 1991
C Abstract     :
C
C INCLUDE FILE FOR FORTRAN WINDOWS 3.0 APPLICATIONS
C
C KERNEL Section
C
$IF DEFINED(KERNEL)
C
C Loader Routines
C
      INTERFACE TO FUNCTION GetVersion[PASCAL,FAR] ()
     INTEGER*2 GetVersion
      END
      INTERFACE TO FUNCTION GetNumTasks[PASCAL,FAR] ()
     INTEGER*2 GetNumTasks
      END
      INTERFACE TO FUNCTION GetCodeHandle[PASCAL,FAR] (FP)
     INTEGER*2 GetCodeHandle
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE GetCodeInfo[PASCAL,FAR] (LPPROC,LPSEGINFO)
     EXTERNAL LPPROC [REFERENCE,FAR]
     EXTERNAL LPSEGINFO [REFERENCE,FAR] ! NOTE SURE ABOUT THIS ONE
      END
      INTERFACE TO FUNCTION GetModuleHandle[PASCAL,FAR] (LS)
     INTEGER*2 GetModuleHandle
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetModuleUsage[PASCAL,FAR] (H)
     INTEGER*2 GetModuleUsage,H
      END
      INTERFACE TO FUNCTION GetModuleFileName[PASCAL,FAR] (H,LS,I)
     INTEGER*2 GetModuleFileName,H,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetInstanceData[PASCAL,FAR] (H,NPSTR,I)
     INTEGER*2 GetInstanceData,H,I
     CHARACTER*(*) NPSTR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetProcAddress[PASCAL,FAR] (H,LS)
     INTEGER*4 GetProcAddress
     INTEGER*2 H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION MakeProcInstance[PASCAL,FAR] (FP,H)
     INTEGER*4 MakeProcInstance
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*2 H
      END
      INTERFACE TO SUBROUTINE FreeProcInstance[PASCAL,FAR] (FP)
     INTEGER*4 FP [FAR]
      END
      INTERFACE TO FUNCTION LoadLibrary[PASCAL,FAR] (LS)
     INTEGER*2 LoadLibrary
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LoadModule[PASCAL,FAR] (LS,LPVOID)
     INTEGER*2 LoadModule
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL LPVOID [REFERENCE,FAR] ! NOT SURE ABOUT THIS ONE
      END
      INTERFACE TO FUNCTION FreeModule[PASCAL,FAR] (H)
     INTEGER*2 FreeModule,H
      END
      INTERFACE TO SUBROUTINE FreeLibrary[PASCAL,FAR] (H)
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION GetFreeSpace[PASCAL,FAR] (I)
     INTEGER*4 GetFreeSpace
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION WinExec[PASCAL,FAR] (LS,I)
     INTEGER*2 WinExec
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE DebugBreak[PASCAL,FAR]
      END
      INTERFACE TO SUBROUTINE OutputDebugString[PASCAL,FAR] (LS)
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SwitchStackBack[PASCAL,FAR]
      END
      INTERFACE TO SUBROUTINE SwitchStackTo(I,J,K)
     INTEGER*2 I,J,K
      END
      INTERFACE TO FUNCTION GetCurrentPDB[PASCAL,FAR] ()
     INTEGER*2 GetCurrentPDB
      END

$IF DEFINED(OPENFILE)
C
C OpenFile()
C
      INTERFACE TO FUNCTION OpenFile[PASCAL,FAR] (LS,LOPFS,I)
     INTEGER*2 OpenFile
     CHARACTER*(*) LS [REFERENCE,FAR]
     STRUCTURE /OPFS/
        INTEGER*2 X(68)
     END STRUCTURE
     RECORD /OPFS/ LOPFS [REFERENCE,FAR]
     INTEGER*2 I
      END
C
C GetTempFileName()
C
      INTERFACE TO FUNCTION GetTempDrive[PASCAL,FAR] (BYTE)
     BYTE GetTempDrive,BYTE
      END
      INTERFACE TO FUNCTION GetTempFileName[PASCAL,FAR] (BYTE,LS1,I,LS2)
     INTEGER*2 GetTempFileName
     BYTE BYTE
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     INTEGER*2 I
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetHandleCount[REFERENCE,FAR] (I)
     INTEGER*2 SetHandleCount,I
      END
      INTERFACE TO FUNCTION GetDriveType(I)
     INTEGER*2 GetDriveType,I
      END
$ENDIF ! NOOPENFILE

$IF DEFINED(MEMMGR)
      INTERFACE TO FUNCTION GlobalAlloc[PASCAL,FAR] (I,J)
     INTEGER*2 GlobalAlloc,I
     INTEGER*4 J
      END
      INTERFACE TO FUNCTION GlobalCompact[PASCAL,FAR] (I)
     INTEGER*4 GlobalCompact,I
      END
      INTERFACE TO FUNCTION GlobalDiscard(H)
         INTEGER*2 GlobalDiscard,H
      END
      INTERFACE TO SUBROUTINE GlobalFix[PASCAL,FAR] (H)
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION GlobalFlags[PASCAL,FAR] (H)
     INTEGER*2 GlobalFlags,H
      END
      INTERFACE TO FUNCTION GlobalFree[PASCAL,FAR] (H)
     INTEGER*2 GlobalFree,H
      END
      INTERFACE TO FUNCTION GlobalHandle[PASCAL,FAR] (I)
     INTEGER*4 GlobalHandle
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION GlobalLock[PASCAL,FAR] (H)
     CHARACTER*(*) GlobalLock ! NOT SURE ABOUT THIS ONE
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION GlobalLRUNewest[PASCAL,FAR] (H)
     INTEGER*2 GlobalLRUNewest,H
      END
      INTERFACE TO FUNCTION GlobalLRUOldest[PASCAL,FAR] (H)
     INTEGER*2 GlobalLRUOldest,H
      END
      INTERFACE TO SUBROUTINE GlobalNotify[PASCAL,FAR] (FP)
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GlobalPageLock[PASCAL,FAR] (H)
     INTEGER*2 GlobalPageLock,H
      END
      INTERFACE TO FUNCTION GlobalPageUnlock[PASCAL,FAR] (H)
      INTEGER*2 GlobalPageUnlock,H
      END
      INTERFACE TO FUNCTION GlobalReAlloc[PASCAL,FAR] (H,I,J)
     INTEGER*2 GlobalReAlloc,H,J
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION GlobalSize[PASCAL,FAR] (H)
     INTEGER*2 GlobalSize,H
      END
      INTERFACE TO FUNCTION GlobalUnfix[PASCAL,FAR] (H)
     INTEGER*2 GlobalUnfix,H
      END
      INTERFACE TO FUNCTION GlobalUnlock[PASCAL,FAR] (H)
     INTEGER*2 GlobalUnlock,H
      END
      INTERFACE TO FUNCTION GlobalUnWire[PASCAL,FAR] (H)
     INTEGER*2 GlobalUnWire,H
      END
      INTERFACE TO FUNCTION GlobalWire[PASCAL,FAR] (H)
     INTEGER*4 GlobalWire ! NOTE SURE ABOUT THIS ONE
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION LockData()
         INTEGER*2 LockData
      END
      INTERFACE TO FUNCTION UnlockData()
         INTEGER*2 UnlockData
      END
      INTERFACE TO FUNCTION LockSegment[PASCAL,FAR] (I)
     INTEGER*2 LockSegment,I
      END
      INTERFACE TO FUNCTION UnlockSegment[PASCAL,FAR] (I)
     INTEGER*2 UnlockSegment,I
      END
      INTERFACE TO FUNCTION LocalAlloc[PASCAL,FAR] (I,J)
     INTEGER*2 LocalAlloc,I,J
      END
      INTERFACE TO FUNCTION LocalCompact[PASCAL,FAR] (I)
     INTEGER*2 LocalCompact,I
      END
      INTERFACE TO FUNCTION LocalDiscard(H)
         INTEGER*2 LocalDiscard,H
      END
      INTERFACE TO FUNCTION LocalFlags[PASCAL,FAR] (H)
     INTEGER*2 LocalFlags,H
      END
      INTERFACE TO FUNCTION LocalFree[PASCAL,FAR] (H)
     INTEGER*2 LocalFree,H
      END
      INTERFACE TO FUNCTION LocalHandle[PASCAL,FAR] (I)
     INTEGER*2 LocalHandle,I
      END
      INTERFACE TO FUNCTION LocalInit[PASCAL,FAR] (I,J,K)
     INTEGER*2 LocalInit,I,J,K
      END
      INTERFACE TO FUNCTION LocalLock[PASCAL,FAR] (H)
     INTEGER*4 LocalLock ! NOTE SURE ABOUT THIS ONE
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION LocalNotify[PASCAL,FAR] (FP)
     INTEGER*4 LocalNotify ! NOT TOO SURE ABOUT THIS ONE
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LocalReAlloc[PASCAL,FAR] (H,I,J)
     INTEGER*2 LocalReAlloc,H,I,J
      END
      INTERFACE TO FUNCTION LocalShrink[PASCAL,FAR] (H,I)
     INTEGER*2 LocalShrink,H,I
      END
      INTERFACE TO FUNCTION LocalSize[PASCAL,FAR] (H)
     INTEGER*2 LocalSize,H
      END
      INTERFACE TO FUNCTION LocalUnlock[PASCAL,FAR] (H)
     INTEGER*2 LocalUnlock,H
      END
$ENDIF ! NOMEMMGR

      INTERFACE TO FUNCTION SetSwapAreaSize[PASCAL,FAR] (I)
     INTEGER*4 SetSwapAreaSize
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION ValidateFreeSpaces[PASCAL,FAR] ()
     INTEGER*4 ValidateFreeSpaces ! ?
      END
      INTERFACE TO SUBROUTINE LimitEmsPages[PASCAL,FAR] (I)
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION SetErrorMode[PASCAL,FAR] (I)
     INTEGER*2 SetErrorMode,I
      END
      INTERFACE TO SUBROUTINE ValidateCodeSegments[PASCAL,FAR]
      END
      INTERFACE TO FUNCTION GetDOSEnvironment[PASCAL,FAR] ()
     INTEGER*4 GetDOSEnvironment ! ?
      END
      INTERFACE TO FUNCTION AllocDStoCSAlias[PASCAL,FAR] (I)
     INTEGER*2 AllocDStoCSAlias,I
      END
      INTERFACE TO FUNCTION AllocSelector[PASCAL,FAR] (I)
     INTEGER*2 AllocSelector,I
      END
      INTERFACE TO FUNCTION ChangeSelector[PASCAL,FAR] (I,J)
     INTEGER*2 ChangeSelector,I,J
      END
      INTERFACE TO FUNCTION FreeSelector[PASCAL,FAR] (I)
     INTEGER*2 FreeSelector,I
      END
      INTERFACE TO FUNCTION UnlockResource[PASCAL,FAR,
     *                                         ALIAS:"GLOBALUNLOCK"] (H)
     INTEGER*2 UnlockResource,H
      END
      INTERFACE TO FUNCTION FindResource[PASCAL,FAR] (H,LS1,LS2)
     INTEGER*2 FindResource,H
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LoadResource[PASCAL,FAR] (H1,H2)
     INTEGER*2 LoadResource,H1,H2
      END
      INTERFACE TO FUNCTION FreeResource[PASCAL,FAR] (H)
     INTEGER*2 FreeResource,H
      END
      INTERFACE TO FUNCTION LockResource[PASCAL,FAR] (H)
     INTEGER*4 LockResource ! ?
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION SetResourceHandler[PASCAL,FAR] (H,LS,FP)
     INTEGER*4 SetResourceHandler
     INTEGER*2 H
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AllocResource[PASCAL,FAR] (H1,H2,I)
     INTEGER*2 AllocResource,H1,H2
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION SizeofResource[PASCAL,FAR] (H1,H2)
     INTEGER*2 SizeofResource,H1,H2
      END
      INTERFACE TO FUNCTION AccessResource[PASCAL,FAR] (H1,H2)
     INTEGER*2 AccessResource,H1,H2
      END
      INTERFACE TO SUBROUTINE Yield[PASCAL,FAR]
      END
      INTERFACE TO FUNCTION GetCurrentTask[PASCAL,FAR] ()
     INTEGER*2 GetCurrentTask
      END

$IF DEFINED(ATOM)

      INTERFACE TO FUNCTION InitAtomTable[PASCAL,FAR] (I)
     INTEGER*2 InitAtomTable,I
      END
      INTERFACE TO FUNCTION AddAtom[PASCAL,FAR] (LS)
     INTEGER*2 AddAtom
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DeleteAtom[PASCAL,FAR] (ATOM)
     INTEGER*2 DeleteAtom,ATOM
      END
      INTERFACE TO FUNCTION FindAtom[PASCAL,FAR] (LS)
     INTEGER*2 FindAtom
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetAtomName[PASCAL,FAR] (ATOM,LS,I)
     INTEGER*2 GetAtomName,ATOM,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GlobalAddAtom[PASCAL,FAR] (LS)
     INTEGER*2 GlobalAddAtom
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GlobalDeleteAtom[PASCAL,FAR] (ATOM)
     INTEGER*2 GlobalDeleteAtom,ATOM
      END
      INTERFACE TO FUNCTION GlobalFindAtom[PASCAL,FAR] (LS)
     INTEGER*2 GlobalFindAtom
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GlobalGetAtomName[PASCAL,FAR] (ATOM,LS,I)
     INTEGER*2 GlobalGetAtomName,ATOM,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetAtomHandle[PASCAL,FAR] (ATOM)
     INTEGER*2 GetAtomHandle,ATOM
      END

$ENDIF ! NOATOM
C
C User Profile Routines
C
      INTERFACE TO FUNCTION GetProfileInt[PASCAL,FAR] (LS1,LS2,I)
     INTEGER*2 GetProfileInt
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION GetProfileString[PASCAL,FAR]
     *                                               (LS1,LS2,LS3,LS4,I)
     INTEGER*2 GetProfileString
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
     CHARACTER*(*) LS4 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION WriteProfileString[PASCAL,FAR] (LS1,LS2,LS3)
     INTEGER*2 WriteProfileString
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetPrivateProfileInt[PASCAL,FAR]
     *                                                   (LS1,LS2,I,LS3)
     INTEGER*2 GetPrivateProfileInt
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
     CHARACTER*(*) LS3 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetPrivateProfileString[PASCAL,FAR]
     *                                           (LS1,LS2,LS3,LS4,I,LS5)
     INTEGER*2 GetPrivateProfileString
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
     CHARACTER*(*) LS4 [REFERENCE,FAR]
     INTEGER*2 I
     CHARACTER*(*) LS5 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION WritePrivateProfileString[PASCAL,FAR]
     *                                                 (LS1,LS2,LS3,LS4)
     INTEGER*2 WritePrivateProfileString
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
     CHARACTER*(*) LS4 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetWindowsDirectory[PASCAL,FAR] (LS,WORD)
     INTEGER*2 GetWindowsDirectory
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 WORD
      END
      INTERFACE TO FUNCTION GetSystemDirectory[PASCAL,FAR] (LS,WORD)
     INTEGER*2 GetSystemDirectory
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 WORD
      END
C
C Catch() and Throw()
C
      INTERFACE TO FUNCTION Catch[PASCAL,FAR] (LPCATCHBUF)
     INTEGER*2 Catch
     INTEGER*2 LPCATCHBUF [FAR,REFERENCE] (9)
      END
      INTERFACE TO SUBROUTINE Throw[PASCAL,FAR] (LPCATCHBUF,I)
     INTEGER*2 LPCATCHBUF [FAR,REFERENCE] (9)
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE FatalExit[PASCAL,FAR] (I)
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE FatalAppExit[PASCAL,FAR] (I,MSG)
     INTEGER*2 I
     CHARACTER*(*) MSG [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SwapRecording[PASCAL,FAR] (I)
     INTEGER*2 I
      END
C
C Character Translation Routines
C
      INTERFACE TO FUNCTION AnsiToOem[PASCAL,FAR] (LS1,LS2)
     INTEGER*2 AnsiToOem
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION OemToAnsi[PASCAL,FAR] (LS1,LS2)
     INTEGER*2 OemToAnsi
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE AnsiToOemBuff[PASCAL,FAR] (LS1,LS2,I)
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE OemToAnsiBuff[PASCAL,FAR] (LS1,LS2,I)
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION AnsiUpper[PASCAL,FAR] (LS)
     INTEGER*4 AnsiUpper
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AnsiUpperBuff[PASCAL,FAR] (LS,I)
     INTEGER*2 AnsiUpperBuff,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AnsiLower[PASCAL,FAR] (LS)
     INTEGER*4 AnsiLower
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AnsiLowerBuff[PASCAL,FAR] (LS,I)
     INTEGER*2 AnsiLowerBuff,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AnsiNext[PASCAL,FAR] (LS)
     INTEGER*4 AnsiNext
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AnsiPrev[PASCAL,FAR] (LS1,LS2)
     INTEGER*4 AnsiPrev
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
C
C Keyboard Information Routines
C
$IF DEFINED(KEYBOARDINFO)
      INTERFACE TO FUNCTION OemKeyScan[PASCAL,FAR] (I)
     INTEGER*4 OemKeyScan
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION VkKeyScan[PASCAL,FAR] (I)
     INTEGER*2 VkKeyScan,I
      END
      INTERFACE TO FUNCTION GetKeyboardType[PASCAL,FAR] (I)
     INTEGER*2 GetKeyboardType,I
      END
      INTERFACE TO FUNCTION MapVirtualKey[PASCAL,FAR] (I,J)
     INTEGER*2 MapVirtualKey,I,J
      END
      INTERFACE TO FUNCTION GetKBCodePage[PASCAL,FAR] ()
     INTEGER*2 GetKBCodePage
      END
      INTERFACE TO FUNCTION GetKeyNameText[PASCAL,FAR] (I,LS,J)
     INTEGER*2 GetKeyNameText,J
     INTEGER*4 I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION ToAscii[PASCAL,FAR] (I,J,LS,LC,L)
         INTEGER*2 ToAscii,I,J,K
         CHARACTER*(*) LS [REFERENCE,VAR]
         CHARACTER*(*) LC [REFERENCE,VAR]
      END

$ENDIF

!$IF DEFINED(LANGUAGE)
!C
!C Language dependent Routines
!C
!
!!BOOL  FAR  PASCAL IsCharAlpha(char);
!!BOOL  FAR  PASCAL IsCharAlphaNumeric(char);
!!BOOL  FAR  PASCAL IsCharUpper(char);
!!BOOL  FAR  PASCAL IsCharLower(char);
!
!$ENDIF ! NOLANGUAGE

      INTERFACE TO FUNCTION GetWinFlags[PASCAL,FAR] ()
     INTEGER*4 GetWinFlags
      END

$ENDIF ! NOKERNEL

C
C GDI Section
C
$IF DEFINED(GDI)
$IF DEFINED(DRAWTEXT)
      INTERFACE TO FUNCTION DrawText[PASCAL,FAR] (HDC,LS,I,R,J)
     INTEGER*2 DrawText,HDC,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DrawIcon[PASCAL,FAR] (HDC,I,J,HI)
     INTEGER*2 DrawIcon,HDC,I,J,HI
      END
$ENDIF ! NODRAWTEXT
      INTERFACE TO FUNCTION GetWindowDC[PASCAL,FAR] (HW)
     INTEGER*2 GetWindowDC,HW
      END
      INTERFACE TO FUNCTION GetDC[PASCAL,FAR] (HW)
     INTEGER*2 GetDC,HW
      END
      INTERFACE TO FUNCTION ReleaseDC[PASCAL,FAR] (HW,HDC)
     INTEGER*2 ReleaseDC,HW,HDC
      END
      INTERFACE TO FUNCTION CreateDC[PASCAL,FAR] (LS1,LS2,LS3,LS4)
     INTEGER*2 CreateDC
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
     CHARACTER*(*) LS4 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateIC[PASCAL,FAR] (LS1,LS2,LS3,LS4)
     INTEGER*2 CreateIC
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     CHARACTER*(*) LS3 [REFERENCE,FAR]
     CHARACTER*(*) LS4 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateCompatibleDC[PASCAL,FAR] (HDC)
     INTEGER*2 CreateCompatibleDC,HDC
      END
      INTERFACE TO FUNCTION DeleteDC[PASCAL,FAR] (HDC)
     INTEGER*2 DeleteDC,HDC
      END
      INTERFACE TO FUNCTION SaveDC [PASCAL,FAR] (HDC)
     INTEGER*2 SaveDC,HDC
      END
      INTERFACE TO FUNCTION RestoreDC[PASCAL,FAR] (HDC,I)
     INTEGER*2 RestoreDC,HDC,I
      END
      INTERFACE TO FUNCTION MoveTo[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 MoveTo
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetCurrentPosition[PASCAL,FAR] (HDC)
     INTEGER*4 GetCurrentPosition
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION LineTo[PASCAL,FAR] (HDC,I,J)
     INTEGER*2 LineTo,HDC,I,J
      END
      INTERFACE TO FUNCTION GetDCOrg[PASCAL,FAR] (HDC)
     INTEGER*4 GetDCOrg
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION ExtTextOut[PASCAL,FAR] (HDC,I,J,K,R,LS,M,N)
     INTEGER*2 ExtTextOut,HDC,I,J,K
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 M
     INTEGER*2 N [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION Polyline[PASCAL,FAR] (HDC,LPPOINT,I)
     INTEGER*2 Polyline,HDC
     STRUCTURE /POINT/
        INTEGER*2 X,Y
     END STRUCTURE
     RECORD /POINT/ LPPOINT [REFERENCE,FAR] (*)
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION Polygon[PASCAL,FAR] (HDC,LPPOINT,I)
     INTEGER*2 Polygon,HDC
     STRUCTURE /POINT/
        INTEGER*2 X,Y
     END STRUCTURE
     RECORD /POINT/ LPPOINT [REFERENCE,FAR] (*)
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION PolyPolygon[PASCAL,FAR]
     *                                             (HDC,LPPOINT,LPINT,I)
     INTEGER*2 PolyPolygon,HDC
     STRUCTURE /POINT/
        INTEGER*2 X,Y
     END STRUCTURE
     RECORD /POINT/ LPPOINT [REFERENCE,FAR] (*)
     INTEGER*2 LPINT,I
      END
      INTERFACE TO FUNCTION Rectangle[PASCAL,FAR] (HDC,I,J,K,L)
      INTEGER*2 Rectangle,HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION RoundRect[PASCAL,FAR] (HDC,I,J,K,L,M,N)
      INTEGER*2 RoundRect,HDC,I,J,K,L,M,N
      END
      INTERFACE TO FUNCTION ELLIPSE[PASCAL,FAR] (HDC,I,J,K,L)
      INTEGER*2 Ellipse,HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION Arc[PASCAL,FAR] (HDC,I,J,K,L,M,N,O,P)
      INTEGER*2 Arc,HDC,I,J,K,L,M,N,O,P
      END
      INTERFACE TO FUNCTION Chord[PASCAL,FAR] (HDC,I,J,K,L,M,N,O,P)
      INTEGER*2 Chord,HDC,I,J,K,L,M,N,O,P
      END
      INTERFACE TO FUNCTION Pie[PASCAL,FAR] (HDC,I,J,K,L,M,N,O,P)
      INTEGER*2 Pie,HDC,I,J,K,L,M,N,O,P
      END
      INTERFACE TO FUNCTION PatBlt[PASCAL,FAR] (HDC,I,J,K,L,M)
     INTEGER*2 PatBlt,HDC,I,J,K,L
     INTEGER*4 M
      END
      INTERFACE TO FUNCTION BitBlt[PASCAL,FAR] (HDC,I,J,K,L,HDC2,M,N,O)
     INTEGER*2 BitBlt,HDC,I,J,K,L,HDC2,M,N
     INTEGER*4 O
      END
      INTERFACE TO FUNCTION StretchBlt[PASCAL,FAR]
     *                                      (HDC,I,J,K,L,HDC2,M,N,O,P,Q)
     INTEGER*2 StretchBlt,HDC,I,J,K,L,HDC2,M,N,O,P
     INTEGER*4 Q
      END
      INTERFACE TO FUNCTION TextOut[PASCAL,FAR] (HDC,I,J,LS,K)
     INTEGER*2 TextOut,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 K
      END
      INTERFACE TO FUNCTION TabbedTextOut[PASCAL,FAR]
     *                                          (HDC,I,J,LS,K,L,LPINT,M)
     INTEGER*4 TabbedTextOut
     INTEGER*2 HDC,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 K,L
     INTEGER*2 LPINT [REFERENCE,FAR]
     INTEGER*2 M
      END
      INTERFACE TO FUNCTION GetCharWidth[PASCAL,FAR] (HDC,I,J,LPINT)
     INTEGER*2 GetCharWidth,HDC,I,J
     INTEGER*2 LPINT [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetPixel[PASCAL,FAR] (HDC,I,J,K)
     INTEGER*4 SetPixel,K
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetPixel[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 GetPixel
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION FloodFill[PASCAL,FAR] (HDC,I,J,K)
     INTEGER*2 FloodFill,HDC,I,J
     INTEGER*4 K
      END
      INTERFACE TO FUNCTION ExtFloodFill[PASCAL,FAR] (HDC,I,J,K,L)
     INTEGER*2 ExtFloodFill,HDC,I,J,L
     INTEGER*4 K
      END
      INTERFACE TO SUBROUTINE LineDAA[PASCAL,FAR] (I,J,K,L,FP,LS)
     INTEGER*2 I,J,K,L
     EXTERNAL FP [REFERENCE,FAR]
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetStockObject[PASCAL,FAR] (int)
     INTEGER*2 GetStockObject,INT
      END
      INTERFACE TO FUNCTION CreatePen[PASCAL,FAR] (I,J,K)
     INTEGER*2 CreatePen,I,J
     INTEGER*4 K
      END
      INTERFACE TO FUNCTION CreatePenIndirect[PASCAL,FAR] (LOGPEN)
     INTEGER*2 CreatePenIndirect
     STRUCTURE /PEN/
        INTEGER*2 X(5)
     END STRUCTURE
     RECORD /PEN/ LOGPEN [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateSolidBrush[PASCAL,FAR] (I)
     INTEGER*2 CreateSolidBrush
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION CreateHatchBrush[PASCAL,FAR] (I,J)
     INTEGER*2 CreateHatchBrush,I
     INTEGER*4 J
      END
      INTERFACE TO FUNCTION SetBrushOrg[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 SetBrushOrg
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetBrushOrg[PASCAL,FAR] (HDC)
     INTEGER*4 GetBrushOrg
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION CreatePatternBrush[PASCAL,FAR] (HB)
     INTEGER*2 CreatePatternBrush,HB
      END
      INTERFACE TO FUNCTION CreateBrushIndirect[PASCAL,FAR] (BR)
     INTEGER*2 CreateBrushIndirect
     STRUCTURE /BRUSH/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /BRUSH/ BR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateBitmap[PASCAL,FAR] (I,J,K,L,LS)
     INTEGER*2 CreateBitmap,I,J
     BYTE K,L
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateBitmapIndirect[PASCAL,FAR] (LPBMP)
     INTEGER*2 CreateBitmapIndirect
     STRUCTURE /BMP/
        INTEGER*2 X(8)
     END STRUCTURE
     RECORD /BMP/ LPBMP [REFERENCE,FAR] ! Not sure about this one
      END
      INTERFACE TO FUNCTION CreateCompatibleBitmap[PASCAL,FAR] (HDC,I,J)
     INTEGER*2 CreateCompatibleBitmap,HDC,I,J
      END
      INTERFACE TO FUNCTION CreateDiscardableBitmap[PASCAL,FAR]
     *                                                         (HDC,I,J)
     INTEGER*2 CreateDiscardableBitmap,HDC,I,J
      END
      INTERFACE TO FUNCTION SetBitmapBits[PASCAL,FAR] (HB,I,LS)
     INTEGER*4 SetBitmapBits,I
     INTEGER*2 HB
     BYTE LS [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION GetBitmapBits[PASCAL,FAR] (HB,I,LS)
     INTEGER*4 GetBitmapBits,I
     INTEGER*2 HB
     BYTE LS [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION SetBitmapDimension[PASCAL,FAR] (HB,I,J)
     INTEGER*4 SetBitmapDimension
     INTEGER*2 HB,I,J
      END
      INTERFACE TO FUNCTION GetBitmapDimension[PASCAL,FAR] (H)
     INTEGER*4 GetBitmapDimension
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION CreateFont[PASCAL,FAR]
     *                                    (I,J,K,L,M,N,O,P,Q,R,S,T,U,LS)
     INTEGER*2 CreateFont,I,J,K,L,M
     BYTE N,O,P,Q,R,S,T,U
     BYTE LS [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION CreateFontIndirect[PASCAL,FAR] (LOGFONT)
     INTEGER*2 CreateFontIndirect
     STRUCTURE /FONT/
        INTEGER*2 X(25)
     END STRUCTURE
     RECORD /FONT/ LOGFONT [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SelectClipRgn[PASCAL,FAR] (HDC,HR)
     INTEGER*2 SelectClipRgn,HDC,HR
      END
      INTERFACE TO FUNCTION CreateRectRgn[PASCAL,FAR] (I,J,K,L)
     INTEGER*2 CreateRectRgn,I,J,K,L
      END
      INTERFACE TO SUBROUTINE SetRectRgn[PASCAL,FAR] (HR,I,J,K,L)
     INTEGER*2 HR,I,J,K,L
      END
      INTERFACE TO FUNCTION CreateRectRgnIndirect[PASCAL,FAR] (R)
     INTEGER*2 CreateRectRgnIndirect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateEllipticRgnIndirect[PASCAL,FAR] (R)
     INTEGER*2 CreateEllipticRgnIndirect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateEllipticRgn[PASCAL,FAR] (I,J,K,L)
     INTEGER*2 CreateEllipticRgn,I,J,K,L
      END
      INTERFACE TO FUNCTION CreatePolygonRgn[PASCAL,FAR] (P,I,J)
     INTEGER*2 CreatePolygonRgn,I,J
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreatePolyPolygonRgn[PASCAL,FAR] (P,I,J,K)
     INTEGER*2 CreatePolyPolygonRgn,J,K
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
     INTEGER*2 I [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateRoundRectRgn[PASCAL,FAR] (I,J,K,L,M,N)
     INTEGER*2 CreateRoundRectRgn,I,J,K,L,M,N
      END
      INTERFACE TO FUNCTION GetObject[PASCAL,FAR] (H,I,LBUF)
     INTEGER*2 GetObject,H,I
     BYTE LBUF [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION DeleteObject[PASCAL,FAR] (H)
     INTEGER*2 DeleteObject,H
      END
      INTERFACE TO FUNCTION SelectObject[PASCAL,FAR] (HDC,H)
     INTEGER*2 SelectObject,HDC,H
      END
      INTERFACE TO FUNCTION UnrealizeObject[PASCAL,FAR] (HB)
     INTEGER*2  UnrealizeObject,HB
      END
      INTERFACE TO FUNCTION SetBkColor[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetBkColor,HDC
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION GetBkColor[PASCAL,FAR] (HDC)
     INTEGER*4 GetBkColor
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetBkMode[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetBkMode,HDC,I
      END
      INTERFACE TO FUNCTION GetBkMode[PASCAL,FAR] (HDC)
     INTEGER*2 GetBkMode,HDC
      END
      INTERFACE TO FUNCTION SetTextColor[PASCAL,FAR] (HDC,I)
     INTEGER*4 SetTextColor,I
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION GetTextColor[PASCAL,FAR] (HDC)
     INTEGER*4 GetTextColor
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetTextAlign [PASCAL,FAR] (HDC,I)
     INTEGER*2 SetTextAlign,HDC,I
      END
      INTERFACE TO FUNCTION GetTextAlign [PASCAL,FAR] (HDC)
     INTEGER*2 GetTextAlign,HDC
      END
      INTERFACE TO FUNCTION SetMapperFlags[PASCAL,FAR] (HDC,I)
     INTEGER*4 SetMapperFlags
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION GetAspectRatioFilter[PASCAL,FAR] (HDC)
     INTEGER*4 GetAspectRatioFilter
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION GetNearestColor[PASCAL,FAR] (HDC,I)
     INTEGER*4 GetNearestColor,I
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetROP2[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetROP2,HDC,I
      END
      INTERFACE TO FUNCTION GetROP2[PASCAL,FAR] (HDC)
     INTEGER*2 GetROP2,HDC
      END
      INTERFACE TO FUNCTION SetStretchBltMode[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetStretchBltMode,HDC,I
      END
      INTERFACE TO FUNCTION GetStretchBltMode[PASCAL,FAR] (HDC)
     INTEGER*2 GetStretchBltMode,HDC
      END
      INTERFACE TO FUNCTION SetPolyFillMode[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetPolyFillMode,HDC,I
      END
      INTERFACE TO FUNCTION GetPolyFillMode[PASCAL,FAR] (HDC)
     INTEGER*2 GetPolyFillMode,HDC
      END
      INTERFACE TO FUNCTION SetMapMode[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetMapMode,HDC,I
      END
      INTERFACE TO FUNCTION GetMapMode[PASCAL,FAR] (HDC)
     INTEGER*2 GetMapMode,HDC
      END
      INTERFACE TO FUNCTION SetWindowOrg[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 SetWindowOrg
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetWindowOrg[PASCAL,FAR] (HDC)
     INTEGER*4 GetWindowOrg
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetWindowExt[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 SetWindowExt
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetWindowExt[PASCAL,FAR] (HDC)
     INTEGER*4 GetWindowExt
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetViewportOrg[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 SetViewportOrg
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetViewportOrg[PASCAL,FAR] (HDC)
     INTEGER*4 GetViewportOrg
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION SetViewportExt[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 SetViewportExt
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION GetViewportExt[PASCAL,FAR] (HDC)
     INTEGER*4 GetViewportExt
     INTEGER*2 HDC
      END
      INTERFACE TO FUNCTION OffsetViewportOrg[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 OffsetViewportOrg
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION ScaleViewportExt[PASCAL,FAR] (HDC,I,J,K,L)
     INTEGER*4 ScaleViewportExt
     INTEGER*2 HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION OffsetWindowOrg[PASCAL,FAR] (HDC,I,J)
     INTEGER*4 OffsetWindowOrg
     INTEGER*2 HDC,I,J
      END
      INTERFACE TO FUNCTION ScaleWindowExt[PASCAL,FAR] (HDC,I,J,K,L)
     INTEGER*4 ScaleWindowExt
     INTEGER*2 HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION GetClipBox[PASCAL,FAR] (HDC,R)
     INTEGER*2 GetClipBox,HDC
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION IntersectClipRect[PASCAL,FAR] (HDC,I,J,K,L)
     INTEGER*2 IntersectClipRect,HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION OffsetClipRgn[PASCAL,FAR] (HDC,I,J)
     INTEGER*2 OffsetClipRgn,HDC,I,J
      END
      INTERFACE TO FUNCTION ExcludeClipRect[PASCAL,FAR] (HDC,I,J,K,L)
     INTEGER*2 ExcludeClipRect,HDC,I,J,K,L
      END
      INTERFACE TO FUNCTION PtVisible[PASCAL,FAR] (HDC,I,J)
     INTEGER*2 PtVisible,HDC,I,J
      END
      INTERFACE TO FUNCTION CombineRgn[PASCAL,FAR] (H1,H2,H3,I)
     INTEGER*2 CombineRgn,H1,H2,H3,I
      END
      INTERFACE TO FUNCTION EqualRgn[PASCAL,FAR] (H1,H2)
     INTEGER*2 EqualRgn,H1,H2
      END
      INTERFACE TO FUNCTION OffsetRgn[PASCAL,FAR] (H,I,J)
     INTEGER*2 OffsetRgn,H,I,J
      END
      INTERFACE TO FUNCTION GetRgnBox[PASCAL,FAR] (H,R)
     INTEGER*2 GetRgnBox,H
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetTextJustification[PASCAL,FAR] (HDC,I,J)
     INTEGER*2 SetTextJustification,HDC,I,J
      END
      INTERFACE TO FUNCTION GetTextExtent[PASCAL,FAR] (HDC,LS,I)
     INTEGER*4 GetTextExtent
     INTEGER*2 HDC,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetTabbedTextExtent[PASCAL,FAR]
     *                                                    (HDC,LS,I,J,K)
     INTEGER*4 GetTabbedTextExtent
     INTEGER*2 HDC,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*2 K [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetTextCharacterExtra[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetTextCharacterExtra,HDC,I
      END
      INTERFACE TO FUNCTION GetTextCharacterExtra[PASCAL,FAR] (HDC)
     INTEGER*2 GetTextCharacterExtra,HDC
      END
      INTERFACE TO FUNCTION GetMetaFile[PASCAL,FAR] (LS)
     INTEGER*2 GetMetaFile
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DeleteMetaFile[PASCAL,FAR] (H)
     INTEGER*2 DeleteMetaFile,H
      END
      INTERFACE TO FUNCTION CopyMetaFile[PASCAL,FAR] (H,LS)
     INTEGER*2 CopyMetaFile,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END

$IF DEFINED(METAFILE)
      INTERFACE TO SUBROUTINE PlayMetaFileRecord[PASCAL,FAR]
     *                                                     (HDC,HT,MR,I)
         INTEGER*2 HDC,I
         STRUCTURE /T/
            INTEGER*2 X(1)
         END STRUCTURE
         RECORD /T/ HT
         STRUCTURE /R/
            INTEGER*2 X(4)
         END STRUCTURE
         RECORD /R/ MR
      END
      INTERFACE TO FUNCTION EnumMetaFile[PASCAL,FAR] (HDC,LH,FP,B)
         INTEGER*2 EnumMetaFile,HDC,LH
         EXTERNAL FP [REFERENCE,FAR]
         BYTE B [REFERENCE,FAR]
      END
$ENDIF

      INTERFACE TO FUNCTION PlayMetaFile[PASCAL,FAR] (HDC,H)
         INTEGER*2 PlayMetaFile,HDC,H
      END
      INTERFACE TO FUNCTION Escape[PASCAL,FAR] (HDC,I,J,LS1,LS2)
         INTEGER*2 Escape,HDC,I,J
         CHARACTER*(*) LS1 [REFERENCE,FAR]
         CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EnumFonts[PASCAL,FAR] (HDC,LS1,FP,LS2)
         INTEGER*2 EnumFonts,HDC
         CHARACTER*(*) LS1 [REFERENCE,FAR]
         EXTERNAL FP [REFERENCE,FAR]
         CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EnumObjects[PASCAL,FAR] (HDC,I,FP,LS)
         INTEGER*2 EnumObjects,HDC,I
         EXTERNAL FP [REFERENCE,FAR]
         CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetTextFace[PASCAL,FAR] (HDC,I,LS)
         INTEGER*2 GetTextFace,HDC,I
         CHARACTER*(*) LS [REFERENCE,FAR]
      END

$IF DEFINED(TEXTMETRIC)
      INTERFACE TO FUNCTION GetTextMetrics[PASCAL,FAR] (HDC,LPTXTM)
     INTEGER*2 GetTextMetrics,HDC
     STRUCTURE /TXTM/
        BYTE X(31)
     END STRUCTURE
     RECORD /TXTM/ LPTXTM [REFERENCE,FAR]
      END
$ENDIF
      INTERFACE TO FUNCTION GetDeviceCaps[PASCAL,FAR] (HDC,I)
     INTEGER*2 GetDeviceCaps,HDC,I
      END
      INTERFACE TO FUNCTION SetEnvironment[PASCAL,FAR] (LS1,LS2,I)
     INTEGER*2 SetEnvironment
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION GetEnvironment[PASCAL,FAR] (LS1,LS2,I)
     INTEGER*2 GetEnvironment
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION DPtoLP[PASCAL,FAR] (HDC,LPPOINT,I)
     INTEGER*2 DPtoLP,HDC,I
     STRUCTURE /POINT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /POINT/ LPPOINT [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LPtoDP[PASCAL,FAR] (HDC,LPPOINT,I)
     INTEGER*2 LPtoDP,HDC,I
     STRUCTURE /POINT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /POINT/ LPPOINT [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateMetaFile[PASCAL,FAR] (LS)
     INTEGER*2 CreateMetaFile
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CloseMetaFile[PASCAL,FAR] (H)
     INTEGER*2 CloseMetaFile,H
      END
      INTERFACE TO FUNCTION GetMetaFileBits[PASCAL,FAR] (H)
     INTEGER*2 GetMetaFileBits,H
      END
      INTERFACE TO FUNCTION SetMetaFileBits[PASCAL,FAR] (H)
     INTEGER*2 SetMetaFileBits,H
      END
      INTERFACE TO FUNCTION SetDIBits[PASCAL,FAR] (HDC,H,I,J,LS,BMPI,K)
     INTEGER*2 SetDIBits,HDC,H,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
     INTEGER*2 K
      END
      INTERFACE TO FUNCTION SetDIBits_A[PASCAL,FAR]
     *                                             (HDC,H,I,J,LS,BMPI,K)
     INTEGER*2 SetDIBits_A[ALIAS:"GETDIBITS"],HDC,H,I,J
     INTEGER*4 LS
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
     INTEGER*2 K
      END
C TWO INTERFACES FOR THIS ONE, SO ADDRESS CAN BE PASSED FOR LS
C SEE REF VOL 1 PAGE 4-172. AND SETDIBITS.
      INTERFACE TO FUNCTION GetDIBits[PASCAL,FAR] (HDC,H,I,J,LS,BMPI,K)
     INTEGER*2 GetDIBits,HDC,H,I,J
     BYTE LS [REFERENCE,FAR] (*)
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
     INTEGER*2 K
      END
      INTERFACE TO FUNCTION GetDIBits_A[PASCAL,FAR]
     *                                             (HDC,H,I,J,LS,BMPI,K)
     INTEGER*2 GetDIBits_A[ALIAS:"GETDIBITS"],HDC,H,I,J
     INTEGER*4 LS
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
     INTEGER*2 K
      END
      INTERFACE TO FUNCTION SetDIBitsToDevice[PASCAL,FAR]
     *                                (HDC,I,J,K,L,M,N,O,P,LS,BMPI,Q)
     INTEGER*2 SetDIBitsToDevice,HDC,I,J,K,L,M,N,O,P,Q
     BYTE LS [REFERENCE,FAR] (*)
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateDIBitmap[PASCAL,FAR]
     *                                        (HDC,BMPIH,I,LS,BMPI,J)
     INTEGER*2 CreateDIBitmap,HDC,I,J
     STRUCTURE /BITMAPINFOH/
        INTEGER*2 X(20)
     END STRUCTURE
     RECORD /BITMAPINFOH/ BMPIH [REFERENCE,FAR]
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateDIBPatternBrush[PASCAL,FAR] (H,I)
     INTEGER*2 CreateDIBPatternBrush,H,I
      END
      INTERFACE TO FUNCTION StretchDIBits[PASCAL,FAR]
     *                              (HDC,I,J,K,L,M,N,O,P,LS,BMPI,Q,R)
     INTEGER*2 StretchDIBits,HDC,I,J,K,L,M,N,O,P,Q
     BYTE LS [REFERENCE,FAR] (*)
     STRUCTURE /BITMAPINFO/
        INTEGER*2 X(22)
     END STRUCTURE
     RECORD /BITMAPINFO/ BMPI [REFERENCE,FAR]
     INTEGER*4 R
      END
      INTERFACE TO FUNCTION CreatePalette [PASCAL,FAR] (LPLOGPAL)
     INTEGER*2 CreatePalette
     STRUCTURE /LOGPAL/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /LOGPAL/ LPLOGPAL [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SelectPalette [PASCAL,FAR] (HDC,HP,I)
     INTEGER*2 SelectPalette,HDC,HP,I
      END
      INTERFACE TO FUNCTION RealizePalette [PASCAL,FAR] (HDC)
     INTEGER*2 RealizePalette,HDC
      END
      INTERFACE TO FUNCTION UpdateColors [PASCAL,FAR] (HDC)
     INTEGER*2 UpdateColors,HDC
      END
      INTERFACE TO SUBROUTINE AnimatePalette[PASCAL,FAR] (HP,I,J,LPPALE)
     INTEGER*2 HP,I,J
     STRUCTURE /PALE/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PALE/ LPPALE [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetPaletteEntries[PASCAL,FAR]
     *                                                   (HP,I,J,LPPALE)
     INTEGER*2 SetPaletteEntries,HP,I,J
     STRUCTURE /PALE/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PALE/ LPPALE [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetPaletteEntries[PASCAL,FAR]
     *                                                   (HP,I,J,LPPALE)
     INTEGER*2 GetPaletteEntries,HP,I,J
     STRUCTURE /PALE/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PALE/ LPPALE [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetNearestPaletteIndex[PASCAL,FAR] (HP,I)
     INTEGER*2 GetNearestPaletteIndex,HP
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION ResizePalette[PASCAL,FAR] (HP,I)
     INTEGER*2 ResizePalette,HP,I
      END
      INTERFACE TO FUNCTION GetSystemPaletteEntries[PASCAL,FAR]
     *                                                  (HDC,I,J,LPPALE)
     INTEGER*2 GetSystemPaletteEntries,HDC,I,J
     STRUCTURE /PALE/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PALE/ LPPALE [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetSystemPaletteUse[PASCAL,FAR] (HDC,I)
     INTEGER*2 GetSystemPaletteUse,HDC,I
      END
      INTERFACE TO FUNCTION SetSystemPaletteUse[PASCAL,FAR] (HDC,I)
     INTEGER*2 SetSystemPaletteUse,HDC,I
      END
$ENDIF ! NOGDI

C
C USER Section
C
$IF DEFINED(USER)
!!int FAR PASCAL wvsprintf(LPSTR,LPSTR,LPSTR);
!!int FAR cdecl wsprintf(LPSTR,LPSTR,...);

$IF DEFINED(WINMESSAGES)
      INTERFACE TO FUNCTION RegisterWindowMessage[PASCAL,FAR] (LS)
     INTEGER*2 RegisterWindowMessage
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
$ENDIF ! NOWINMESSAGES

$IF DEFINED(MSG)
C
C Message Function Templates
C
      INTERFACE TO FUNCTION GetMessage[PASCAL,FAR] (LPMSG,HW,I,J)
     INTEGER*2 GetMessage,HW,I,J
     STRUCTURE /MSG/
        INTEGER*2 X(9)
     END STRUCTURE
     RECORD /MSG/ LPMSG [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION TranslateMessage[PASCAL,FAR] (LPMSG)
     INTEGER*2 TranslateMessage
     STRUCTURE /MSG/
        INTEGER*2 X(9)
     END STRUCTURE
     RECORD /MSG/ LPMSG [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION DispatchMessage[PASCAL,FAR] (LPMSG)
     INTEGER*4 DispatchMessage
     STRUCTURE /MSG/
        INTEGER*2 X(9)
     END STRUCTURE
     RECORD /MSG/ LPMSG [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION PeekMessage[PASCAL,FAR] (LPMSG,HW,I,J,K)
     INTEGER*2 PeekMessage,HW,I,J,K
     STRUCTURE /MSG/
        INTEGER*2 X(9)
     END STRUCTURE
     RECORD /MSG/ LPMSG [FAR,REFERENCE]
      END
$ENDIF ! NOMSG

!REPLACE DEINITION OF NOLSTRING etc

$IF DEFINED(LSTRING)
!!int         FAR PASCAL lstrcmp( LPSTR, LPSTR );
!!int         FAR PASCAL lstrcmpi( LPSTR, LPSTR );
!!LPSTR       FAR PASCAL lstrcpy( LPSTR, LPSTR );
!!LPSTR       FAR PASCAL lstrcat( LPSTR, LPSTR );
!!int         FAR PASCAL lstrlen( LPSTR );
$ENDIF ! NOLSTRING

$IF DEFINED(LFILEIO)
!%int         FAR PASCAL _lopen( LPSTR, int );
!%int         FAR PASCAL _lclose( int );
!%int         FAR PASCAL _lcreat( LPSTR, int );
!%LONG        FAR PASCAL _llseek( int, long, int );
!%WORD        FAR PASCAL _lread( int, LPSTR, int );
!%WORD        FAR PASCAL _lwrite( int, LPSTR, int );
$ENDIF ! NOLFILEIO

      INTERFACE TO FUNCTION ExitWindows[PASCAL,FAR] (I,J)
     INTEGER*2 ExitWindows,J
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION SwapMouseButton[PASCAL,FAR] (I)
     INTEGER*2 SwapMouseButton,I
      END
      INTERFACE TO FUNCTION GetMessagePos[PASCAL,FAR] ()
     INTEGER*4 GetMessagePos
      END
      INTERFACE TO FUNCTION GetMessageTime[PASCAL,FAR] ()
     INTEGER*4 GetMessageTime
      END
      INTERFACE TO FUNCTION GetSysModalWindow[PASCAL,FAR] ()
     INTEGER*2 GetSysModalWindow
      END
      INTERFACE TO FUNCTION SetSysModalWindow[PASCAL,FAR] (HW)
     INTEGER*2 SetSysModalWindow,HW
      END
      INTERFACE TO FUNCTION SendMessage[PASCAL,FAR] (HW,I,J,K)
     INTEGER*4 SendMessage
     INTEGER*2 HW,I,J
     INTEGER*4 K
      END
      INTERFACE TO FUNCTION PostMessage[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 PostMessage,HW,I,J
     INTEGER*4 K
      END
      INTERFACE TO FUNCTION PostAppMessage[PASCAL,FAR] (H,I,J,K)
     INTEGER*2 PostAppMessage,H,I,J
     INTEGER*4 K
      END
      INTERFACE TO SUBROUTINE ReplyMessage[PASCAL,FAR] (I)
     INTEGER*4 I
      END
      INTERFACE TO SUBROUTINE WaitMessage[PASCAL,FAR]
      END
      INTERFACE TO FUNCTION DefWindowProc[PASCAL,FAR] (HW,I,J,K)
     INTEGER*4 DefWindowProc,K
     INTEGER*2 HW,I,J
      END
      INTERFACE TO SUBROUTINE PostQuitMessage[PASCAL,FAR] (I)
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION CallWindowProc[PASCAL,FAR] (FP,HW,I,J,K)
     INTEGER*4 CallWindowProc,K
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*2 HW,I,J
      END
      INTERFACE TO FUNCTION InSendMessage[PASCAL,FAR] ()
     INTEGER*2 InSendMessage
      END
      INTERFACE TO FUNCTION GetDoubleClickTime[PASCAL,FAR] ()
     INTEGER*2 GetDoubleClickTime
      END
      INTERFACE TO SUBROUTINE SetDoubleClickTime[PASCAL,FAR] (I)
     INTEGER*2 I
      END
      INTERFACE TO FUNCTION RegisterClass[PASCAL,FAR] (LPWNDCLASS)
     INTEGER*2 RegisterClass
     STRUCTURE /WNDCLASS/
        INTEGER*2 X(13)
     END STRUCTURE
     RECORD /WNDCLASS/ LPWNDCLASS [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION UnregisterClass[PASCAL,FAR] (LS,H)
     INTEGER*2 UnregisterClass,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetClassInfo[PASCAL,FAR] (H,LS,LPWC)
     INTEGER*2 GetClassInfo,H
     CHARACTER*(*) LS [REFERENCE,FAR]
     STRUCTURE /WC/
        INTEGER*2 X(13)
     END STRUCTURE
     RECORD /WC/ LPWC [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetMessageQueue[PASCAL,FAR] (I)
     INTEGER*2 SetMessageQueue,I
      END
      INTERFACE TO FUNCTION CreateWindow[PASCAL,FAR]
     *                                   (LS1,LS2,M,I,J,K,L,HW,HM,H,LS3)
     INTEGER*2 CreateWindow,I,J,K,L,HW,HM,H
     CHARACTER*(*) LS1 [FAR,REFERENCE]
     CHARACTER*(*) LS2 [FAR,REFERENCE]
     INTEGER*4 M
     CHARACTER*(*) LS3 [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION CreateWindowEx[PASCAL,FAR]
     *                                 (I,LS1,LS2,J,K,L,M,N,HW,HM,H,LS3)
     INTEGER*2 CreateWindowEx,K,L,M,N,HW,HM,H
     INTEGER*4 I,J
     CHARACTER*(*) LS1 [FAR,REFERENCE]
     CHARACTER*(*) LS2 [FAR,REFERENCE]
     CHARACTER*(*) LS3 [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION IsWindow[PASCAL,FAR] (H)
     INTEGER*2 IsWindow,H
      END
      INTERFACE TO FUNCTION IsChild[PASCAL,FAR] (H1,H2)
     INTEGER*2 IsChild,H1,H2
      END
      INTERFACE TO FUNCTION DestroyWindow[PASCAL,FAR] (H)
     INTEGER*2 DestroyWindow,H
      END
      INTERFACE TO FUNCTION ShowWindow[PASCAL,FAR] (H,I)
     INTEGER*2 ShowWindow,H,I
      END
      INTERFACE TO FUNCTION FlashWindow[PASCAL,FAR] (H,I)
     INTEGER*2 FlashWindow,H,I
      END
      INTERFACE TO SUBROUTINE ShowOwnedPopups[PASCAL,FAR] (H,I)
     INTEGER*2 H,I
      END
      INTERFACE TO FUNCTION OpenIcon[PASCAL,FAR] (H)
     INTEGER*2 OpenIcon,H
      END
      INTERFACE TO SUBROUTINE CloseWindow[PASCAL,FAR] (HW)
     INTEGER*2 HW
      END
      INTERFACE TO SUBROUTINE MoveWindow[PASCAL,FAR] (HW1,HW2,I,J,K,L,M)
     INTEGER*2 HW1,HW2,I,J,K,L,M
      END
      INTERFACE TO SUBROUTINE SetWindowPos[PASCAL,FAR]
     *                                               (HW1,HW2,I,J,K,L,M)
     INTEGER*2 HW1,HW2,I,J,K,L,M
      END

$IF DEFINED(DEFERWINDOWPOS)
      INTERFACE TO FUNCTION BeginDeferWindowPos[PASCAL,FAR] (N)
     INTEGER*2 BeginDeferWindowPos,N
      END
      INTERFACE TO FUNCTION DeferWindowPos[PASCAL,FAR]
     *                                              (I,HW,J,X,Y,CX,CY,F)
     INTEGER*2 DeferWindowPos,I,HW,J
     INTEGER*2 X,Y,CX,CY,F
      END
      INTERFACE TO SUBROUTINE EndDeferWindowPos[PASCAL,FAR] (I)
     INTEGER*2 I
      END
$ENDIF ! NODEFERWINDOWPOS

      INTERFACE TO FUNCTION IsWindowVisible[PASCAL,FAR] (H)
     INTEGER*2 IsWindowVisible,H
      END
      INTERFACE TO FUNCTION IsIconic[PASCAL,FAR] (H)
     INTEGER*2 IsIconic,H
      END
      INTERFACE TO FUNCTION AnyPopup[PASCAL,FAR] ()
     INTEGER*2 AnyPopup
      END
      INTERFACE TO SUBROUTINE BringWindowToTop[PASCAL,FAR] (H)
     INTEGER*2 H
      END
      INTERFACE TO FUNCTION IsZoomed[PASCAL,FAR] (H)
     INTEGER*2 IsZoomed,H
      END

$IF DEFINED(CTLMGR)
      INTERFACE TO FUNCTION CreateDialog[PASCAL,FAR] (H,LS,HW,FP)
     INTEGER*2 CreateDialog,H,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateDialogIndirect[PASCAL,FAR]
     *                                                      (H,LS,HW,FP)
     INTEGER*2 CreateDialogIndirect,H,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CreateDialogParam[PASCAL,FAR] (H,LS,HW,FP,I)
     INTEGER*2 CreateDialogParam,H,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION CreateDialogIndirectParam[PASCAL,FAR]
     *                                                    (H,LS,HW,FP,I)
     INTEGER*2 CreateDialogIndirectParam,H,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION DialogBox[PASCAL,FAR] (H,LS,HW,FP)
     INTEGER*2 DialogBox,H,HW
     CHARACTER*(*) LS [FAR,REFERENCE]
     INTEGER*4 FP
      END
      INTERFACE TO FUNCTION DialogBoxIndirect[PASCAL,FAR] (H1,H2,HW,FP)
     INTEGER*2 DialogBoxIndirect,H1,H2,HW
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DialogBoxParam[PASCAL,FAR] (H,LS,HW,FP,I)
     INTEGER*2 DialogBoxParam,H,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION DialogBoxIndirectParam[PASCAL,FAR]
     *                                                   (H1,H2,HW,FP,I)
     INTEGER*2 DialogBoxIndirectParam,H1,H2,HW
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO SUBROUTINE EndDialog [PASCAL,FAR] (HW,I)
     INTEGER*2 HW,I
      END
      INTERFACE TO FUNCTION GetDlgItem[PASCAL,FAR] (HW,I)
     integer*2 GetDlgItem,HW,I
      END
      INTERFACE TO SUBROUTINE SetDlgItemInt[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 HW,I,J,K
      END
      INTERFACE TO FUNCTION GetDlgItemInt[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 GetDlgItemInt,HW,I,K
     INTEGER*2 J [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SetDlgItemText[PASCAL,FAR] (HW,I,LS)
     INTEGER*2 HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetDlgItemText[PASCAL,FAR] (HW,I,LS,J)
     INTEGER*2 GetDlgItemText,HW,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE CheckDlgButton[PASCAL,FAR] (HW,I,J)
     INTEGER*2 HW,I,J
      END
      INTERFACE TO SUBROUTINE CheckRadioButton[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 HW,I,J,K
      END
      INTERFACE TO FUNCTION IsDlgButtonChecked[PASCAL,FAR] (HW,I)
     INTEGER*2 IsDlgButtonChecked,HW,I
      END
      INTERFACE TO FUNCTION SendDlgItemMessage[PASCAL,FAR] (HW,I,J,K,L)
     INTEGER*4 SendDlgItemMessage,L
     INTEGER*2 I,J,K
      END
      INTERFACE TO FUNCTION GetNextDlgGroupItem[PASCAL,FAR] (HW,H,I)
     INTEGER*2 GetNextDlgGroupItem,HW,H,I
      END
      INTERFACE TO FUNCTION GetNextDlgTabItem[PASCAL,FAR] (HW,H,I)
     INTEGER*2 GetNextDlgTabItem,HW,H,I
      END
      INTERFACE TO FUNCTION GetDlgCtrlID[PASCAL,FAR] (HW)
     INTEGER*2 GetDlgCtrlID,HW
      END
      INTERFACE TO FUNCTION GetDialogBaseUnits[PASCAL,FAR] ()
     INTEGER*4 GetDialogBaseUnits
      END
      INTERFACE TO FUNCTION DefDlgProc[PASCAL,FAR] (HW,I,J,K)
     INTEGER*4 DefDlgProc,K
     INTEGER*2 HW,I,J
      END
$ENDIF ! NOCTLMGR

$IF DEFINED(MSG)
      INTERFACE TO FUNCTION CallMsgFilter[PASCAL,FAR] (LPMSG,I)
     INTEGER*2 CallMsgFilter,I
     CHARACTER*(*) LPMSG [REFERENCE,FAR]
      END
$ENDIF

$IF DEFINED(CLIPBOARD)
C
C Clipboard Manager Functions
C
      INTERFACE TO FUNCTION OpenClipboard[PASCAL,FAR] (HW)
     INTEGER*2 OpenClipboard,HW
      END
      INTERFACE TO FUNCTION CloseClipboard[PASCAL,FAR] ()
     INTEGER*2 CloseClipboard
      END
      INTERFACE TO FUNCTION GetClipboardOwner[PASCAL,FAR] ()
     INTEGER*2 GetClipboardOwner
      END
      INTERFACE TO FUNCTION SetClipboardViewer[PASCAL,FAR] (HW)
     INTEGER*2 SetClipboardViewer,HW
      END
      INTERFACE TO FUNCTION GetClipboardViewer[PASCAL,FAR] ()
     INTEGER*2 GetClipboardViewer
      END
      INTERFACE TO FUNCTION ChangeClipboardChain[PASCAL,FAR] (HW,H)
     INTEGER*2 ChangeClipboardChain,HW,H
      END
      INTERFACE TO FUNCTION SetClipboardData[PASCAL,FAR] (I,H)
     INTEGER*2 SetClipboardData,I,H
      END
      INTERFACE TO FUNCTION GetClipboardData[PASCAL,FAR] (I)
     INTEGER*2 GetClipboardData,I
      END
      INTERFACE TO FUNCTION RegisterClipboardFormat[PASCAL,FAR] (LS)
     INTEGER*2 RegisterClipboardFormat
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CountClipboardFormats[PASCAL,FAR] ()
     INTEGER*2 CountClipboardFormats
      END
      INTERFACE TO FUNCTION EnumClipboardFormats[PASCAL,FAR] (I)
     INTEGER*2 EnumClipboardFormats,I
      END
      INTERFACE TO FUNCTION GetClipboardFormatName[PASCAL,FAR] (I,LS,J)
     INTEGER*2 GetClipboardFormatName,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EmptyClipboard[PASCAL,FAR] ()
     INTEGER*2 EmptyClipboard
      END
      INTERFACE TO FUNCTION IsClipboardFormatAvailable[PASCAL,FAR] (I)
     INTEGER*2 IsClipboardFormatAvailable,I
      END
      INTERFACE TO FUNCTION GetPriorityClipboardFormat[PASCAL,FAR] (I,J)
     INTEGER*2 GetPriorityClipboardFormat,J
     INTEGER*2 I [REFERENCE,FAR]
      END
$ENDIF ! NOCLIPBOARD

      INTERFACE TO FUNCTION SetFocus[PASCAL,FAR] (HW)
     INTEGER*2 SetFocus,HW
      END
      INTERFACE TO FUNCTION GetFocus[PASCAL,FAR] ()
     INTEGER*2 GetFocus
      END
      INTERFACE TO FUNCTION GetActiveWindow[PASCAL,FAR] ()
     INTEGER*2 GetActiveWindow
      END
      INTERFACE TO FUNCTION GetKeyState[PASCAL,FAR] (I)
     INTEGER*2 GetKeyState,I
      END
      INTERFACE TO FUNCTION GetAsyncKeyState[PASCAL,FAR] (I)
     INTEGER*2 GetAsyncKeyState,I
      END
      INTERFACE TO SUBROUTINE GetKeyboardState[PASCAL,FAR] (B)
     BYTE B [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SetKeyboardState[PASCAL,FAR] (B)
     BYTE B [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EnableHardwareInput[PASCAL,FAR] (I)
     INTEGER*2 EnableHardwareInput,I
      END
      INTERFACE TO FUNCTION GetInputState[PASCAL,FAR] ()
     INTEGER*2 GetInputState
      END
      INTERFACE TO FUNCTION GetCapture[PASCAL,FAR] ()
     INTEGER*2 GetCapture
      END
      INTERFACE TO FUNCTION SetCapture[PASCAL,FAR] (HW)
     INTEGER*2 SetCapture,HW
      END
      INTERFACE TO SUBROUTINE ReleaseCapture[PASCAL,FAR] ()
      END
C
C Windows Functions
C
      INTERFACE TO FUNCTION SetTimer[PASCAL,FAR] (HW,I,J,FP)
     INTEGER*2 SetTimer,HW,I,J
     INTEGER*4 FP
      END
      INTERFACE TO FUNCTION KillTimer[PASCAL,FAR] (HW,I)
     INTEGER*2 KillTimer,HW,I
      END
      INTERFACE TO FUNCTION EnableWindow[PASCAL,FAR] (HW,I)
     INTEGER*2 EnableWindow,HW,I
      END
      INTERFACE TO FUNCTION IsWindowEnabled[PASCAL,FAR] (HW)
     INTEGER*2 IsWindowEnabled,HW
      END

      INTERFACE TO FUNCTION LoadAccelerators[PASCAL,FAR] (H,LS)
         INTEGER*2 LoadAccelerators,H
         CHARACTER*(*) LS [REFERENCE,FAR]
      END

$IF DEFINED(MSG)
      INTERFACE TO FUNCTION TranslateAccelerator[PASCAL,FAR] (HW,H,MSG)
         INTEGER*2 TranslateAccelerator,HW,H
         STRUCTURE /M/
            INTEGER*2 X(9)
         END STRUCTURE
         RECORD /M/ MSG [REFERENCE,FAR]
      END
$ENDIF

$IF DEFINED(SYSMETRICS)
      INTERFACE TO FUNCTION GetSystemMetrics[PASCAL,FAR] (I)
     INTEGER*2 GetSystemMetrics,I
      END
$ENDIF ! NOSYSMETRICS

$IF DEFINED(MENUS)
      INTERFACE TO FUNCTION LoadMenu[PASCAL,FAR] (H,LS)
     INTEGER*2 LoadMenu,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LoadMenuIndirect[PASCAL,FAR] (LS)
     INTEGER*2 LoadMenuIndirect
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetMenu[PASCAL,FAR] (HW)
     INTEGER*2 GetMenu,HW
      END
      INTERFACE TO FUNCTION SetMenu[PASCAL,FAR] (HW,HM)
     INTEGER*2 SetMenu,HW,HM
      END
      INTERFACE TO FUNCTION ChangeMenu[PASCAL,FAR] (HM,I,LS,J,K)
     INTEGER*2 ChangeMenu,HM,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION HiliteMenuItem[PASCAL,FAR] (HW,HM,I,J)
     INTEGER*2 HiliteMenuItem,HW,HM,I,J
      END
      INTERFACE TO FUNCTION GetMenuString[PASCAL,FAR] (HM,I,LS,J,K)
     INTEGER*2 GetMenuString,HM,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetMenuState[PASCAL,FAR] (HM,I,J)
     INTEGER*2 GetMenuState,HM,I,J
      END
      INTERFACE TO SUBROUTINE DrawMenuBar[PASCAL,FAR] (HW)
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION GetSystemMenu[PASCAL,FAR] (HW,I)
     INTEGER*2 GetSystemMenu,HW,I
      END
      INTERFACE TO FUNCTION CreateMenu[PASCAL,FAR] ()
     INTEGER*2 CreateMenu
      END
      INTERFACE TO FUNCTION CreatePopupMenu[PASCAL,FAR] ()
     INTEGER*2 CreatePopupMenu
      END
      INTERFACE TO FUNCTION DestroyMenu[PASCAL,FAR] (HM)
     INTEGER*2 DestroyMenu,HM
      END
      INTERFACE TO FUNCTION CheckMenuItem[PASCAL,FAR] (HM,I,J)
     INTEGER*2 CheckMenuItem,HM,I,J
      END
      INTERFACE TO FUNCTION EnableMenuItem[PASCAL,FAR] (HM,I,J)
     INTEGER*2 EnableMenuItem,HM,I,J
      END
      INTERFACE TO FUNCTION GetSubMenu[PASCAL,FAR] (HM,I)
     INTEGER*2 GetSubMenu,HM,I
      END
      INTERFACE TO FUNCTION GetMenuItemID[PASCAL,FAR] (HM,I)
     INTEGER*2 GetMenuItemID,HM,I
      END
      INTERFACE TO FUNCTION GetMenuItemCount[PASCAL,FAR] (HM)
     INTEGER*2 GetMenuItemCount,HM
      END
      INTERFACE TO FUNCTION InsertMenu[PASCAL,FAR] (HM,I,J,K,LS)
     INTEGER*2 InsertMenu,HM,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AppendMenu[PASCAL,FAR] (HM,I,J,LS)
     INTEGER*2 AppendMenu,HM,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION ModifyMenu[PASCAL,FAR] (HM,I,J,K,LS)
     INTEGER*2 ModifyMenu,HM,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION RemoveMenu[PASCAL,FAR] (HM,I,J)
     INTEGER*2 RemoveMenu,HM,I,J
      END
      INTERFACE TO FUNCTION DeleteMenu[PASCAL,FAR] (HM,I,J)
     INTEGER*2 DeleteMenu,HM,I,J
      END
      INTERFACE TO FUNCTION SetMenuItemBitmaps[PASCAL,FAR]
     *                                                   (HM,I,J,HB,HB2)
     INTEGER*2 SetMenuItemBitmaps,HM,I,J,HB,HB2
      END
      INTERFACE TO FUNCTION GetMenuCheckMarkDimensions[PASCAL,FAR] ()
     INTEGER*4 GetMenuCheckMarkDimensions
      END
      INTERFACE TO FUNCTION TrackPopupMenu[PASCAL,FAR] (HM,I,J,K,L,HW,R)
     INTEGER*2 TrackPopupMenu,HM,I,J,K,L,HW
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
$ENDIF ! NOMENUS

      INTERFACE TO FUNCTION GrayString[PASCAL,FAR]
     *                                           (HDC,HB,FP,I,J,K,L,M,N)
     INTEGER*2 GrayString,HDC,HB,J,K,L,M,N
     INTEGER*4 I
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE UpdateWindow[PASCAL,FAR] (HW)
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION SetActiveWindow[PASCAL,FAR] (HW)
     INTEGER*2 SetActiveWindow,HW
      END
      INTERFACE TO FUNCTION BeginPaint[PASCAL,FAR] (HW,PS)
     INTEGER*2 BeginPaint,HW
     STRUCTURE /PSS/
        INTEGER*2 X(16)
     END STRUCTURE
     RECORD /PSS/ PS [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE EndPaint[PASCAL,FAR] (HW,PS)
     INTEGER*2 HW
     STRUCTURE /PSS/
        INTEGER*2 X(16)
     END STRUCTURE
     RECORD /PSS/ PS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetUpdateRect[PASCAL,FAR] (HW,R,I)
     INTEGER*2 GetUpdateRect,HW,I
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetUpdateRgn[PASCAL,FAR] (HW,HR,I)
     INTEGER*2 GetUpdateRgn,HW,HR,I
      END
      INTERFACE TO FUNCTION ExcludeUpdateRgn[PASCAL,FAR] (HDC,HW)
     INTEGER*2 ExcludeUpdateRgn,HDC,HW
      END
      INTERFACE TO SUBROUTINE InvalidateRect[PASCAL,FAR] (HW,R,I)
     INTEGER*2 HW,I
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
C CHECK THIS OUT... ITS ANOTHER ADDRESS PASSING INTERFACE
      INTERFACE TO SUBROUTINE InvalidateRect_A[PASCAL,FAR,
     *                                  ALIAS:"INVALIDATERECT"] (HW,R,I)
     INTEGER*2 HW,I
     INTEGER*4 R
      END
      INTERFACE TO SUBROUTINE ValidateRect[PASCAL,FAR] (HW,R)
     INTEGER*2 HW
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE ValidateRect_A[PASCAL,FAR,
     *                                      ALIAS:"VALIDATERECT"] (HW,R)
     INTEGER*2 HW
     INTEGER*4 R
      END
      INTERFACE TO SUBROUTINE InvalidateRgn[PASCAL,FAR] (HW,HR,I)
     INTEGER*2 HW,HR,I
      END
      INTERFACE TO FUNCTION ValidateRgn[PASCAL,FAR] (HW,HR)
     INTEGER*2 HW,HR
      END
      INTERFACE TO SUBROUTINE ScrollWindow[PASCAL,FAR]
     *                                                (HW,I,J,LPR1,LPR2)
     INTEGER*2 HW,I,J
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE ScrollWindow_A[PASCAL,FAR,
     *                          ALIAS:"SCROLLWINDOW"] (HW,I,J,LPR1,LPR2)
     INTEGER*2 HW,I,J
     INTEGER*4 LPR1
     INTEGER*4 LPR2
      END
      INTERFACE TO FUNCTION ScrollDC[PASCAL,FAR]
     *                                       (HDC,I,J,LPR1,LPR2,HR,LPR3)
     INTEGER*2 ScrollDC,HDC,I,J,HR
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
     RECORD /RECT/ LPR3 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION ScrollDC_A[PASCAL,FAR,ALIAS:"SCROLLDC"]
     *                                       (HDC,I,J,LPR1,LPR2,HR,LPR3)
     INTEGER*2 ScrollDC_A,HDC,I,J,HR
     INTEGER*4 LPR1
     INTEGER*4 LPR2
     INTEGER*4 LPR3
      END

$IF DEFINED(SCROLL)
      INTERFACE TO FUNCTION SetScrollPos[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 SetScrollPos,HW,I,J,K
      END
      INTERFACE TO FUNCTION GetScrollPos[PASCAL,FAR] (HW,I)
     INTEGER*2 GetScrollPos,HW,I
      END
      INTERFACE TO SUBROUTINE SetScrollRange[PASCAL,FAR] (HW,I,J,K,L)
     INTEGER*2 HW,I,J,K,L
      END
      INTERFACE TO FUNCTION GetScrollRange[PASCAL,FAR] (HW,I,J,K)
     INTEGER*2 GetScrollRange,HW,I
     INTEGER*2 J [REFERENCE,FAR], K [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION ShowScrollBar[PASCAL,FAR] (HW,I,J)
     INTEGER*2 ShowScrollBar,HW,I,J
      END
$ENDIF

      INTERFACE TO FUNCTION SetProp[PASCAL,FAR] (HW,LS,H)
     INTEGER*2 SetProp,HW,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetProp_A[PASCAL,FAR,ALIAS:"SETPROP"]
     *                                                         (HW,LS,H)
     INTEGER*2 SetProp_A,HW,H
     INTEGER*4 LS
      END
      INTERFACE TO FUNCTION GetProp[PASCAL,FAR] (HW,LS)
     INTEGER*2 GetProp,HW
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetProp_A[PASCAL,FAR,ALIAS:"GETPROP"]
     *                                                           (HW,LS)
     INTEGER*2 GetProp_A,HW
     INTEGER*4 LS
      END
      INTERFACE TO FUNCTION RemoveProp[PASCAL,FAR] (HW,LS)
     INTEGER*2 RemoveProp,HW
     INTEGER*4 LS
      END
      INTERFACE TO FUNCTION EnumProps[PASCAL,FAR] (HW,FP)
     INTEGER*2 EnumProps,HW
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SetWindowText[PASCAL,FAR] (HW,LS)
     INTEGER*2 HW
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetWindowText[PASCAL,FAR] (HW,LS,I)
     INTEGER*2 GetWindowText,HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetWindowTextLength[PASCAL,FAR] (HW)
     INTEGER*2 GetWindowTextLength,HW
      END
      INTERFACE TO SUBROUTINE GetClientRect[PASCAL,FAR] (HW,R)
     INTEGER*2 HW
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE GetWindowRect[PASCAL,FAR] (HW,R)
     INTEGER*2 HW
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE AdjustWindowRect[PASCAL,FAR] (R,I,J)
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
     INTEGER*4 I
     INTEGER*2 J
      END
      INTERFACE TO SUBROUTINE AdjustWindowRectEx[PASCAL,FAR] (R,I,J,K)
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
     INTEGER*4 I
     INTEGER*2 J
     INTEGER*4 K
      END
$IF DEFINED(MB)
      INTERFACE TO FUNCTION MessageBox[PASCAL,FAR] (HW,LS1,LS2,I)
     INTEGER*2 MessageBox,HW
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE MessageBeep[PASCAL,FAR] (I)
     INTEGER*2 I
      END
$ENDIF ! NOMB

      INTERFACE TO FUNCTION ShowCursor[PASCAL,FAR] (I)
     INTEGER*2 ShowCursor,i
      END
      INTERFACE TO SUBROUTINE SetCursorPos[PASCAL,FAR] (I,J)
     INTEGER*2 I,J
      END
      INTERFACE TO FUNCTION SetCursor[PASCAL,FAR] (H)
     INTEGER*2 SetCursor,H
      END
      INTERFACE TO SUBROUTINE GetCursorPos[PASCAL,FAR] (P)
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE ClipCursor[PASCAL,FAR] (LPR)
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE CreateCaret[PASCAL,FAR] (HW,HB,I,J)
     INTEGER*2 HW,HB,I,J
      END
      INTERFACE TO FUNCTION GetCaretBlinkTime[PASCAL,FAR] ()
     INTEGER*2 GetCaretBlinkTime
      END
      INTERFACE TO SUBROUTINE SetCaretBlinkTime[PASCAL,FAR] (I)
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE DestroyCaret[PASCAL,FAR] ()
      END
      INTERFACE TO SUBROUTINE HideCaret[PASCAL,FAR] (HW)
     INTEGER*2 HW
      END
      INTERFACE TO SUBROUTINE ShowCaret[PASCAL,FAR] (HW)
     INTEGER*2 HW
      END
      INTERFACE TO SUBROUTINE SetCaretPos[PASCAL,FAR] (I,J)
     INTEGER*2 I,J
      END
      INTERFACE TO SUBROUTINE GetCaretPos[PASCAL,FAR] (P)
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE ClientToScreen[PASCAL,FAR] (HW,P)
     INTEGER*2 HW
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE ScreenToClient[PASCAL,FAR] (HW,P)
     INTEGER*2 HW
     STRUCTURE /PNT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PNT/ P [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION WindowFromPoint[PASCAL,FAR] (PNT)
     INTEGER*2 WindowFromPoint
     STRUCTURE /PT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PT/ PNT !?
      END
      INTERFACE TO FUNCTION ChildWindowFromPoint[PASCAL,FAR] (HW,PNT)
     INTEGER*2 ChildWindowFromPoint,HW
     STRUCTURE /PT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PT/ PNT !?
      END

$IF DEFINED(COLOR)
      INTERFACE TO FUNCTION GetSysColor[PASCAL,FAR] (I)
     INTEGER*4 GetSysColor
     INTEGER*2 I
      END
      INTERFACE TO SUBROUTINE SetSysColors[PASCAL,FAR] (I,J,K)
         INTEGER*2 I
         INTEGER*2 J [REFERENCE,FAR]
         INTEGER*4 K [REFERENCE,FAR]
      END
$ENDIF ! NOCOLOR

      INTERFACE TO FUNCTION FillRgn[PASCAL,FAR] (HDC,HR,HB)
     INTEGER*2 FillRgn,HDC,HR,HB
      END
      INTERFACE TO FUNCTION FrameRgn[PASCAL,FAR] (HDC,HR,HB,I,J)
     INTEGER*2 FrameRgn,HDC,HR,HB,I,J
      END
      INTERFACE TO FUNCTION InvertRgn[PASCAL,FAR] (HDC,HR)
     INTEGER*2 InvertRgn,HDC,HR
      END
      INTERFACE TO FUNCTION PaintRgn[PASCAL,FAR] (HDC,HR)
     INTEGER*2 PaintRgn,HDC,HR
      END
      INTERFACE TO FUNCTION PtInRegion[PASCAL,FAR] (HR,I,J)
     INTEGER*2 PtInRegion,HR,I,J
      END
      INTERFACE TO SUBROUTINE DrawFocusRect[PASCAL,FAR] (HDC,R)
     INTEGER*2 HDC
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION FillRect[PASCAL,FAR] (HDC,R,HB)
     INTEGER*2 FillRect,HDC,HB
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION FrameRect[PASCAL,FAR] (HDC,R,HB)
     INTEGER*2 FrameRect,HDC,HB
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE InvertRect[PASCAL,FAR] (HDC,R)
     INTEGER*2 HDC
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SetRect[PASCAL,FAR] (R,I,J,K,L)
     INTEGER*2 I,J,K,L
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE SetRectEmpty[PASCAL,FAR] (R)
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ R [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CopyRect[PASCAL,FAR] (LPR1,LPR2)
     INTEGER*2 CopyRect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION InflateRect[PASCAL,FAR] (LPR,I,J)
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
     INTEGER*2 I,J
      END
      INTERFACE TO FUNCTION IntersectRect[PASCAL,FAR] (LPR1,LPR2,LPR3)
     INTEGER*2 IntersectRect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
     RECORD /RECT/ LPR3 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION UnionRect[PASCAL,FAR] (LPR1,LPR2,LPR3)
     INTEGER*2 UnionRect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
     RECORD /RECT/ LPR3 [REFERENCE,FAR]
      END
      INTERFACE TO SUBROUTINE OffsetRect[PASCAL,FAR] (LPR,I,J)
     INTEGER*2 I,J
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION IsRectEmpty[PASCAL,FAR] (LPR)
     INTEGER*2 IsRectEmpty
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EqualRect[PASCAL,FAR] (LPR1,LPR2)
     INTEGER*2 EqualRect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR1 [REFERENCE,FAR]
     RECORD /RECT/ LPR2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION PtInRect[PASCAL,FAR] (LPR,PNT)
     INTEGER*2 PtInRect
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
     STRUCTURE /PT/
        INTEGER*2 X(2)
     END STRUCTURE
     RECORD /PT/ PNT ! ?
      END
      INTERFACE TO FUNCTION RectVisible[PASCAL,FAR] (HDC, LPR)
     INTEGER*2 RectVisible,HDC
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION RectInRegion[PASCAL,FAR] (HR,LPR)
     INTEGER*2 RectInRegion,HR
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetCurrentTime[PASCAL,FAR] ()
     INTEGER*4 GetCurrentTime
      END
      INTERFACE TO FUNCTION GetTickCount[PASCAL,FAR] ()
     INTEGER*4 GetTickCount
      END

$IF DEFINED(WINOFFSETS)
      INTERFACE TO FUNCTION GetWindowWord[PASCAL,FAR] (HW,I)
     INTEGER*2 GetWindowWord,HW,I
      END
      INTERFACE TO FUNCTION SetWindowWord[PASCAL,FAR] (HW,I,J)
     INTEGER*2 SetWindowWord,HW,I,J
      END
      INTERFACE TO FUNCTION GetWindowLong[PASCAL,FAR] (HW,I)
     INTEGER*4 GetWindowLong,I
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION SetWindowLong[PASCAL,FAR] (HW,I,J)
     INTEGER*4 SetWindowLong,I,J
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION GetClassWord[PASCAL,FAR] (HW,I)
     INTEGER*2 GetClassWord,HW,I
      END
      INTERFACE TO FUNCTION SetClassWord[PASCAL,FAR] (HW,I,J)
     INTEGER*2 SetClassWord,HW,I,J
      END
      INTERFACE TO FUNCTION GetClassLong[PASCAL,FAR] (HW,I)
     INTEGER*4 GetClassLong,I
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION SetClassLong[PASCAL,FAR] (HW,I,J)
     INTEGER*4 SetClassLong,I,J
     INTEGER*2 HW
      END
      INTERFACE TO FUNCTION GetDesktopHwnd[PASCAL,FAR] ()
     INTEGER*2 GetDesktopHwnd
      END
      INTERFACE TO FUNCTION GetDesktopWindow[PASCAL,FAR] ()
     INTEGER*2 GetDesktopWindow
      END
$ENDIF ! NOWINOFFSETS

      INTERFACE TO FUNCTION GetParent[PASCAL,FAR] (HW)
     INTEGER*2 GetParent,HW
      END
      INTERFACE TO FUNCTION SetParent[PASCAL,FAR] (HW1,HW2)
     INTEGER*2 SetParent,HW1,HW2
      END
      INTERFACE TO FUNCTION EnumChildWindows[PASCAL,FAR] (HW,FP,I)
     INTEGER*2 EnumChildWindows,HW
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION FindWindow[PASCAL,FAR] (LS1,LS2)
     INTEGER*2 FindWindow
     CHARACTER*(*) LS1 [REFERENCE,FAR]
     CHARACTER*(*) LS2 [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION EnumWindows[PASCAL,FAR] (FP,I)
     INTEGER*2 EnumWindows
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION EnumTaskWindows[PASCAL,FAR] (H,FP,I)
     INTEGER*2 EnumTaskWindows,H
     EXTERNAL FP [REFERENCE,FAR]
     INTEGER*4 I
      END
      INTERFACE TO FUNCTION GetClassName[PASCAL,FAR] (HW,LS,I)
     INTEGER*2 GetClassName,HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetTopWindow[PASCAL,FAR] (HW)
     INTEGER*2 GetTopWindow,HW
      END
      INTERFACE TO FUNCTION GetNextWindow[PASCAL,FAR] (HW,I)
     INTEGER*2 GetNextWindow,HW,I
      END
      INTERFACE TO FUNCTION GetWindowTask[PASCAL,FAR] (HW)
     INTEGER*2 GetWindowTask,HW
      END
      INTERFACE TO FUNCTION GetLastActivePopup[PASCAL,FAR] (HW)
     INTEGER*2 GetLastActivePopup,HW
      END
      INTERFACE TO FUNCTION GetWindow[PASCAL,FAR] (HW,I)
     INTEGER*2 GetWindow,HW,I
      END

$IF DEFINED(WH)
      INTERFACE TO FUNCTION SetWindowsHook[PASCAL,FAR] (I,FP)
     INTEGER*4 SetWindowsHook
     INTEGER*2 I
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION UnhookWindowsHook[PASCAL,FAR] (I,FP)
     INTEGER*2 UnhookWindowsHook,I
     EXTERNAL FP [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DefHookProc[PASCAL,FAR] (I,J,K,FP)
     INTEGER*2 DefHookProc,I,J
     INTEGER*4 K
     EXTERNAL FP [REFERENCE,FAR]
      END
$ENDIF ! NOWH

C
C Resource Loading Routines
C
      INTERFACE TO FUNCTION LoadBitmap[PASCAL,FAR] (H,LS)
     INTEGER*2 LoadBitmap,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LoadCursor[PASCAL,FAR] (H,LS)
     INTEGER*2 LoadCursor,H
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION LoadCursor_A[PASCAL,FAR] (H,LS)
     INTEGER*2 LoadCursor_A [ALIAS:"LOADCURSOR"]
     INTEGER*2 H
     INTEGER*4 LS
      END
      INTERFACE TO FUNCTION CreateCursor[PASCAL,FAR] (H,I,J,K,L,ABP,XBP)
     INTEGER*2 CreateCursor,H,I,J,K,L
     BYTE ABP [REFERENCE,FAR] (*), XBP [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION DestroyCursor[PASCAL,FAR] (H)
     INTEGER*2 DestroyCursor,H
      END
      INTERFACE TO FUNCTION LoadIcon[PASCAL,FAR] (H,LS)
     INTEGER*2 LoadIcon,H
     CHARACTER*(*) LS [FAR,REFERENCE]
      END
      INTERFACE TO FUNCTION CreateIcon[PASCAL,FAR] (H,I,J,K,L,ABP,XBP)
     INTEGER*2 CreateIcon,H,I,J
     BYTE K,L
     BYTE ABP [REFERENCE,FAR] (*), XBP [REFERENCE,FAR] (*)
      END
      INTERFACE TO FUNCTION DestroyIcon[PASCAL,FAR] (H)
     INTEGER*2 DestroyIcon,H
      END
C$ WHERE IS $ENDIF ! NOICONS, WHICH HOULD BE HERE?
      INTERFACE TO FUNCTION LoadString[PASCAL,FAR] (H,I,LS,J)
     INTEGER*2 LoadString,H,I,J
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION AddFontResource[PASCAL,FAR] (LS)
     INTEGER*2 AddFontResource
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION RemoveFontResource[PASCAL,FAR] (LS)
     INTEGER*2 RemoveFontResource
     CHARACTER*(*) LS [REFERENCE,FAR]
      END

$IF DEFINED(KANJI)
      INTERFACE TO FUNCTION ConvertRequest[PASCAL,FAR] (HW,LPKS)
     INTEGER*2 ConvertRequest,HW
     STRUCTURE /KS/
        INTEGER*2 X(11)
     END STRUCTURE
     RECORD /KS/ LPKS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetConvertParams[PASCAL,FAR] (I,J)
     INTEGER*2 SetConvertParams,I,J
      END
      INTERFACE TO SUBROUTINE SetConvertHook[PASCAL,FAR] (I)
     INTEGER*2 I
      END
$ENDIF ! NOKANJI

C
C Key Conversion Window, undocumented function
C
      INTERFACE TO FUNCTION IsTwoByteCharPrefix[PASCAL,FAR] (CHAR)
     INTEGER*2 IsTwoByteCharPrefix
     CHARACTER CHAR
      END

$IF DEFINED(CTLMGR)
C
C Control Manager Definitions
C
$IF DEFINED(MSG)
      INTERFACE TO FUNCTION IsDialogMessage[PASCAL,FAR] (HW,LPMSG)
     INTEGER*2 IsDialogMessage,HW
     STRUCTURE /MSG/
        INTEGER*2 X(9)
     END STRUCTURE
     RECORD /MSG/ LPMSG [REFERENCE,FAR]
      END
$ENDIF ! NOMSG

      INTERFACE TO FUNCTION MapDialogRect[PASCAL,FAR] (HW,LPR)
     INTEGER*2 MapDialogRect,HW
     STRUCTURE /RECT/
        INTEGER*2 X(4)
     END STRUCTURE
     RECORD /RECT/ LPR [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DlgDirList[PASCAL,FAR] (HW,LS,I,J,K)
     INTEGER*2 DlgDirList,HW,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DlgDirSelect[PASCAL,FAR] (HW,LS,I)
     INTEGER*2 DlgDirSelect,HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DlgDirListComboBox[PASCAL,FAR] (HW,LS,I,J,K)
     INTEGER*2 DlgDirListComboBox,HW,I,J,K
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION DlgDirSelectComboBox[PASCAL,FAR] (HW,LS,I)
     INTEGER*2 DlgDirSelectComboBox,HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
      END
$ENDIF ! NOCTLMSG

$IF DEFINED(SOUND)
      INTERFACE TO FUNCTION OpenSound[PASCAL,FAR] ()
     INTEGER*2 OpenSound
      END
      INTERFACE TO SUBROUTINE CloseSound[PASCAL,FAR] ()
      END
      INTERFACE TO FUNCTION SetVoiceQueueSize[PASCAL,FAR] (I,J)
     INTEGER*2 SetVoiceQueueSize,I,J
      END
      INTERFACE TO FUNCTION SetVoiceNote[PASCAL,FAR] (I,J,K,L)
     INTEGER*2 SetVoiceNote,I,J,K,L
      END
      INTERFACE TO FUNCTION SetVoiceAccent[PASCAL,FAR] (I,J,K,L,M)
     INTEGER*2 SetVoiceAccent,I,J,K,L,M
      END
      INTERFACE TO FUNCTION SetVoiceEnvelope[PASCAL,FAR] (I,J,K)
     INTEGER*2 SetVoiceEnvelope,I,J,K
      END
      INTERFACE TO FUNCTION SetSoundNoise[PASCAL,FAR] (I,J)
     INTEGER*2 SetSoundNoise,I,J
      END
      INTERFACE TO FUNCTION SetVoiceSound[PASCAL,FAR] (I,J,K)
     INTEGER*2 SetVoiceSound,I,K
     INTEGER*4 J
      END
      INTERFACE TO FUNCTION StartSound[PASCAL,FAR] ()
     INTEGER*2 StartSound
      END
      INTERFACE TO FUNCTION StopSound[PASCAL,FAR] ()
     INTEGER*2 StopSound
      END
      INTERFACE TO FUNCTION WaitSoundState[PASCAL,FAR] (I)
     INTEGER*2 WaitSoundState,I
      END
      INTERFACE TO FUNCTION SyncAllVoices[PASCAL,FAR] ()
     INTEGER*2 SyncAllVoices
      END
      INTERFACE TO FUNCTION CountVoiceNotes[PASCAL,FAR] (I)
     INTEGER*2 CountVoiceNotes
      END
      INTERFACE TO FUNCTION GetThresholdEvent[PASCAL,FAR] ()
     INTEGER*4 GetThresholdEvent ! Pointer to integer
      END
      INTERFACE TO FUNCTION GetThresholdStatus[PASCAL,FAR] ()
     INTEGER*2 GetThresholdStatus
      END
      INTERFACE TO FUNCTION SetVoiceThreshold[PASCAL,FAR] (I,J)
     INTEGER*2 SetVoiceThreshold,I,J
      END
$ENDIF ! NOSOUND

$IF DEFINED(COMM)
      INTERFACE TO FUNCTION OpenComm[PASCAL,FAR] (LS,I,J)
         INTEGER*2 OpenComm,I,J
         CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION SetCommState[PASCAL,FAR] (DC)
         INTEGER*2 SetCommState
         STRUCTURE /DCB/
            BYTE X(38)
         END STRUCTURE
         RECORD /DCB/ DC [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION GetCommState[PASCAL,FAR] (I,DC)
         INTEGER*2 GetCommState,I
         STRUCTURE /DCB/
            BYTE X(38)
         END STRUCTURE
         RECORD /DCB/ DC [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION ReadComm[PASCAL,FAR] (I,LS,J)
         INTEGER*2 ReadComm,I,J
         CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION UngetCommChar[PASCAL,FAR] (I,C)
         INTEGER*2 UngetCommChar,I
         CHARACTER*(*) C
      END
      INTERFACE TO FUNCTION WriteComm[PASCAL,FAR] (I,LS,J)
         INTEGER*2 WriteComm,I,J
         CHARACTER*(*) LS [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION CloseComm[PASCAL,FAR] (I)
         INTEGER*2 CloseComm,I
      END
      INTERFACE TO FUNCTION GetCommError[PASCAL,FAR] (I,CM)
         INTEGER*2 GetCommError,I
         STRUCTURE /CMS/
            BYTE X(11)
         END STRUCTURE
         RECORD /CMS/ CM [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION BuildCommDCB[PASCAL,FAR] (LS,DC)
         INTEGER*2 BuildCommDCB
         CHARACTER*(*) LS [REFERENCE,FAR]
         STRUCTURE /DCB/
            BYTE X(38)
         END STRUCTURE
         RECORD /DCB/ DC [REFERENCE,FAR]
      END
      INTERFACE TO FUNCTION TransmitCommChar[PASCAL,FAR] (I,C)
         INTEGER*2 TransmitCommChar,I
         CHARACTER*(*) C
      END
      INTERFACE TO FUNCTION FAR PASCAL SetCommEventMask[PASCAL,FAR]
     *                                                             (I,J)
         INTEGER*2 FAR PASCAL SetCommEventMask,I,J
      END
      INTERFACE TO FUNCTION GetCommEventMask[PASCAL,FAR] (I,J)
         INTEGER*2 GetCommEventMask,I,J
      END
      INTERFACE TO FUNCTION SetCommBreak[PASCAL,FAR] (I)
         INTEGER*2 SetCommBreak,I
      END
      INTERFACE TO FUNCTION ClearCommBreak[PASCAL,FAR] (I)
         INTEGER*2 ClearCommBreak,I
      END
      INTERFACE TO FUNCTION FlushComm[PASCAL,FAR] (I,J)
         INTEGER*2 FlushComm,I,J
      END
      INTERFACE TO FUNCTION EscapeCommFunction[PASCAL,FAR] (I,J)
         INTEGER*2 EscapeCommFunction,I,J
      END
$ENDIF ! NOCOMM

$IF DEFINED(MDI)
      INTERFACE TO FUNCTION DefFrameProc[PASCAL,FAR] (HW1,HW2,I,J,K)
         INTEGER*4 DefFrameProc,K
         INTEGER*2 HW1,HW2,I,J
      END
      INTERFACE TO FUNCTION DefMDIChildProc(HW,I,J,K)
         INTEGER*4 DefMDIChildProc,K
         INTEGER*2 HW,I,J
      END

$IF DEFINED(MSG)
      INTERFACE TO FUNCTION TranslateMDISysAccel(HW,MSG)
         INTEGER*2 TranslateMDISysAccel,HW
         STRUCTURE /M/
            INTEGER X(9)
         END STRUCTURE
         RECORD /M/ MSG [REFERENCE,FAR]
      END
$ENDIF

      INTERFACE TO FUNCTION ArrangeIconicWindows[PASCAL,FAR] (HW)
     INTEGER*2 ArrangeIconicWindows,HW
      END
$ENDIF ! NOMDI

$ENDIF ! NOUSER

$IF DEFINED(HELP)
C
C Help engine section.
C
      INTERFACE TO FUNCTION WinHelp[PASCAL,FAR] (HW,LS,I,J)
     INTEGER*2 WinHelp,HW,I
     CHARACTER*(*) LS [REFERENCE,FAR]
     INTEGER*4 J
      END
$ENDIF

$IF DEFINED(PROFILER)
C
C function declarations for profiler routines contained in Windows libraries
C
      INTERFACE TO function ProfInsChk[PASCAL,FAR] ()
         INTEGER*2 ProfInsChk
      END
      INTERFACE TO SUBROUTINE ProfSetup[PASCAL,FAR] (I,J)
         INTEGER*2 I,J
      END
      INTERFACE TO SUBROUTINE ProfSampRate[PASCAL,FAR] (I,J)
         INTEGER*2 I,J
      END
      INTERFACE TO SUBROUTINE ProfStart[PASCAL,FAR] ()
      END
      INTERFACE TO SUBROUTINE ProfStop[PASCAL,FAR] ()
      END
      INTERFACE TO SUBROUTINE ProfClear[PASCAL,FAR] ()
      END
      INTERFACE TO SUBROUTINE ProfFlush[PASCAL,FAR] ()
      END
      INTERFACE TO SUBROUTINE ProfFinish[PASCAL,FAR] ()
      END
$ENDIF ! NOPROFILER